home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / file-newer < prev    next >
Encoding:
Text File  |  1995-03-11  |  190 b   |  10 lines
  1. #!/usr/local/bin/perl
  2. #file-newer: Return 1 if file 1 is newer than file 2, else 0
  3.  
  4. $cmp = (stat($ARGV[0]))[9] - (stat($ARGV[1]))[9];
  5. if ($cmp > 0)
  6.    { print "1"; }
  7. else
  8.    { print "0"; }
  9.  
  10.